home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib09.dsk
/
GRAPHICS GRAB BAG.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
907b
|
26 lines
3 FOR J = 1 TO 5
4 FOR X = 1 TO 10 STEP 3
5 HGR2 : HCOLOR= 3
6 I = 1
10 ON J GOSUB 1000,2000,3000,4000,5000
11 ON J GOSUB 10000,11000,12000,13000,14000
12 HPLOT A,B
20 FOR I = 1 TO 360 *X STEP X
30 ON J GOSUB 1000,2000,3000,4000,5000
40 ON J GOSUB 10000,11000,12000,13000,14000
50 HPLOT TO A,B
60 NEXT
63 FOR I = 1 TO 40:S = PEEK( -16336): NEXT : INPUT A$
65 NEXT
70 NEXT J
75 TEXT : END
1000 A = SIN(I *3) *100 +150:A = ABS(A): RETURN
2000 A = SIN(I/3) *100 +150:A = ABS(A): RETURN
3000 A = SIN(I/2) *100 +150:A = ABS(A): RETURN
4000 A = COS(I *3) *100 +150:A = ABS(A): RETURN
5000 A = SIN(I) *100 +150:A = ABS(A): RETURN
10000 B = COS(I) *90 +92:B = ABS(B): RETURN
11000 B = COS(I/3) *90 +92:B = ABS(B): RETURN
12000 B = COS(I/3) *90 +92:B = ABS(B): RETURN
13000 B = COS(I) *90 +92:B = ABS(B): RETURN
14000 B = SIN( COS(I *6)) *90 +92:B = ABS(B): RETURN